home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Game Pak / rerun-gamepak / trap shoot (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  131 lines
  1. 0 v=53248:pokev+16,.:poke54296,15
  2. 1 j=56320:pokev+28,1:pokev+37,1:pokev+39,9:po=-1
  3. 2 gosub2000
  4. 3 pokev+38,22:poke2041,192:poke2042,193:pokev+27,4:pokev+23,1:pokev+29,1
  5. 4 pokev+21,4+2+1:pokev+40,.:pokev+41,1:deffn jo(o)=15-(peek(56320)and15)
  6. 5 deffnfb(o)=peek(56320)and16
  7. 10 print"[147]"tab(12)"[153][169][155]              [153][223]":printtab(11)"[169]                [223]"
  8. 11 printtab(10)"[169]                  [223]":fort=1to4
  9. 12 print"                                        ";:next
  10. 13 print"[153]  [151]   [153]     [151]   [153]     [151]   [153]     [151]   [153]     [151]   [153]   ";
  11. 14 print"  [151] 1 [153]     [151] 2 [153]     [151] 3 [153]     [151] 4 [153]     [151] 5 [153]   ";
  12. 15 print"                                        ";
  13. 16 print"                                        ":print"[145][145]hi score"peek(2)
  14. 17 fort=1984to2023:poket,160:poket+54272,13:next
  15. 98 ifdi=.then400
  16. 99 goto300
  17. 100 jv=fnjo(.):ifwbthen111
  18. 101 ifjv=1orjv=5orjv=9theny2=y2-s
  19. 102 ifjv=2orjv=6orjv=10theny2=y2+s
  20. 103 ifjv>3andjv<7thenx2=x2-s
  21. 104 ifjv>7andjv<11thenx2=x2+s
  22. 105 ifx2>255thenpokev+16,peek(v+16)+2:x2=x2-255
  23. 106 ifx2<.and(peek(v+16)and2)=2thenx2=255--x2:pokev+16,peek(v+16)-2
  24. 107 ify2<.theny2=.
  25. 108 ify2>255theny2=255
  26. 109 ifx2<.thenx2=.
  27. 110 ifx2>255thenx2=255
  28. 111 kl=peek(53278):pokev+2,x2:pokev+3,y2:iffnfb(.)=.andwb=.then800
  29. 200 h=h+1:x3=x3+d1:y3=y3+d2:ifx3>255thenx3=.:pokev+16,peek(v+16)+4
  30. 210 ify3<.ory3>255then300
  31. 211 ifh>40andwb=1then300
  32. 212 ifx3<.then300
  33. 299 pokev+4,x3:pokev+5,y3:poke54276,128:goto100
  34. 300 wb=.:h=.:po=po+1:if(peek(v+16)and2)=2thenpokev+16,peek(v+16)-2
  35. 302 onint((po+5)/5)gosub500,510,520,530,540,540
  36. 303 print"score=";sc"[157]/25","round"po
  37. 397 ifpo=25then600
  38. 398 jv=fnjo(.):fb=fnfb(.):ifjv=.andfb=16then398
  39. 399 goto100
  40. 400 print"[144]         >>>>> trap shoot <<<<<         "
  41. 401 input"enter blue rock speed (1-15)";di:input"enter sight speed (1-40)";s
  42. 402 print"see one (fb=y/up=n)"
  43. 403 fb=fnfb(.):jv=fnjo(.):iffb=.then406
  44. 404 ifjvthen410
  45. 405 goto403
  46. 406 gosub590:x3=170:y3=167:poke2042,193:pokev+21,4:fort=1to10
  47. 407 h=h+1:x3=x3+d1:y3=y3+d2:ifx3>255thenx3=.:pokev+16,peek(v+16)+4
  48. 408 ify3<.theny3=.
  49. 409 pokev+4,x3:pokev+5,y3:fory=1to75:nexty,t:pokev+21,7
  50. 410 print"change (fb=y/up=n)
  51. 411 fb[178][165]fb(.):jv[178][165]jo(.):[139]fb[178]16[175]jv[178].[167]411
  52. 412 [153]"";:[129]t[178]1[164]10:[153]"                                        ";:[130]
  53. 413 [139]s[179]1[176]s[177]40[167]400
  54. 414 [139]di[179]1[176]di[177]15[167]400
  55. 498 [139]fb[178].[167]400
  56. 499 x3[178].:y3[178].:[137]10
  57. 500 [143] post >1<:p[207]v+16,.
  58. 501 x[178]x1:y[178]y1:[151]2040,191:x1[178]33:y1[178]192:x2[178]126:y2[178]157:x3[178]170:y3[178]167
  59. 502 [151]v[170]1,y1:[151]v[170]2,x2:[151]v[170]3,y2:[151]v[170]4,x3:[151]v[170]5,y3:[151]v,x1:[137]590
  60. 510 [143] post >2<
  61. 511 x[178]x1:y[178]y1:[151]2040,191:x1[178]97:y1[178]192:x2[178]149:y2[178]157:x3[178]170:y3[178]167:[141]900
  62. 512 [151]v[170]1,y1:[151]v[170]2,x2:[151]v[170]3,y2:[151]v[170]4,x3:[151]v[170]5,y3:[137]590
  63. 520 [143] post >3<
  64. 521 x[178]x1:y[178]y1:[151]2040,191:x1[178]161:y1[178]192:x2[178]169:y2[178]157:x3[178]170:y3[178]167:[141]900
  65. 522 [151]v[170]1,y1:[151]v[170]2,x2:[151]v[170]3,y2:[151]v[170]4,x3:[151]v[170]5,y3:[137]590
  66. 530 [143] post >4<
  67. 531 x[178]x1:y[178]y1:[151]2040,190:x1[178]220:y1[178]192:x2[178]189:y2[178]157:x3[178]170:y3[178]167:[141]900
  68. 532 [151]v[170]1,y1:[151]v[170]2,x2:[151]v[170]3,y2:[151]v[170]4,x3:[151]v[170]5,y3:[137]590
  69. 540 [143] post >5<
  70. 541 x[178]x1:y[178]y1:[151]2040,190:x1[178]28:y1[178]192:x2[178]216:y2[178]157:x3[178]170:y3[178]167:[141]900
  71. 542 [151]v[170]1,y1:[151]v[170]2,x2:[151]v[170]3,y2:[151]v[170]4,x3:[151]v[170]5,y3
  72. 590 [151]2042,193:d1[178][181]([187](.)[172]5)[170]di:d[178][181]([187](.)[172]100)[170]1:[139]d[177]50[167]d1[178][171]d1
  73. 591 d2[178][181]([187](.)[172]5)[170]di:d2[178][171]d2:[139]([194](v[170]16)[175]4)[178]4[167][151]v[170]16,[194](v[170]16)[171]4
  74. 599 [142]
  75. 600 [153]:[153]""[163]15)"game over":[153][163]15)"fb=start":[153][163]15)"up=e n d"
  76. 601 [139]sc[177][194](2)[167][151]2,sc:[153]"hi score"sc
  77. 602 jv[178][165]jo(.):fb[178][165]fb(.):[139]fb[178]0[167][151]v[170]21,0:[138]
  78. 603 [139]jv[167][128]
  79. 604 [137]601
  80. 800 wb[178]1:[143] shoot
  81. 801 [151]54273,2:[151]54272,255:[151]54277,.:[151]54278,252:[151]54276,129
  82. 810 [139]kl[179][177]6[167]200
  83. 811 [151]2042,194:d2[178][171]d2:sc[178]sc[170]1
  84. 890 [137]200
  85. 900 [139]x[178]x1[167][142]
  86. 901 [151]v[170]16,.:[139]x[179]x1[167][129]t[178]x[164]x1:[151]v,t:[129]y[178]1[164]10:[130]y,t
  87. 902 [139]x[177]x1[167]910
  88. 903 [142]
  89. 910 u[178].:[129]t[178]x[164]x1[170]255:[139]t[177]255[167][151]v[170]16,[194](v[170]16)[176]1:u[178]1
  90. 911 [139]u[178]1[167][151]v,t[171]256:[137]913
  91. 912 [151]v,t
  92. 913 [129]y[178]1[164]5:[130]y,t:[142]
  93. 1000 [129]t[178]12160[164]12479:[135]a:[151]t,a:[130]
  94. 1001 [143] sprite 0
  95. 1002 [131]0,0,0,0,63,0,0,31,0,0,23,.,170,135,.,10,189,80,4,124,.,1,60,.,.,60,.
  96. 1003 [131].,60,.,.,60,.,.,255,.,.,195,.,.,195,.,.,195,.,.,195,.,3,.,192,3,.,192
  97. 1004 [131]3,.,192,3,.,192,3,.,192,.
  98. 1010 [143] sprite 1
  99. 1011 [131].,.,.,3,240,.,3,208,.,3,80,.,3,66,170,21,250,160,.,244,64,.,241,.
  100. 1012 [131].,240,.,.,240,.,.,240,.,3,252,.,3,12,.,3,12,.,3,12,.,3,12,.,12,3,.,12,3,.
  101. 1013 [131]12,3,.,12,3,.,12,3,.,.
  102. 1020 [143] sprite 2
  103. 1021 [131].,.,.,1,57,.,3,57,128,7,255,192,15,255,224,31,255,240,63,255,248
  104. 1022 [131]127,255,252,255,255,254,255,255,254,255,255,254,255,255,254,255,255,254
  105. 1023 [131]255,255,254,127,255,252,63,255,248,31,255,240,15,255,224,7,255,192
  106. 1024 [131]3,255,128,1,255,.,.
  107. 1030 [143] sprite 3
  108. 1031 [131],,,,,,,,,,,,,,,,,,,,,,,,3,255,128,7,255,192,15,255,224
  109. 1032 [131],,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
  110. 1040 [143] sprite 4
  111. 1041 [131].,.,.,.,.,6,.,2,.,2,.,.,.,32,12,.,33,.,.,.,.,36,96,64,.,.,.,4,.,32,4,4,.
  112. 1042 [131]3,104,1,32,16,49,.,.,.,.,16,.,6,16,.,6,80,.,.,1,128,3,.,.,.,.,16,128,.,.,
  113. 1999 [142]
  114. 2000 n$[178]" by lee fraley ":[153]"load"[163]3)"step     waitstep"
  115. 2001 [153][163]5)"stepwaitstep"
  116. 2002 [153][163]4)"stepwaitstep step waitstepstep  waitstepstep  waitstep"
  117. 2003 [153][163]3)"stepwaitstep stepwaitstep stepwaitstepstepwaitstepstepwaitstep"
  118. 2004 [153][163]12)"stepwaitstep":[153]
  119. 2005 [153][163]15)"step     waitstep"
  120. 2006 [153][163]14)"stepwaitstep     stepwaitstep"
  121. 2007 [153][163]14)"(NULL)    waitstepstepwaitstep"
  122. 2008 [153][163]17)"stepwaitstepstep  waitstepstep  waitstepstep  waitstepstep  waitstep"
  123. 2009 [153][163]12)"step    waitstepstepwaitstepstepwaitstepstep  waitstepstep  waitstep stepwaitstep":[153]
  124. 2010 [141]1000:[153]"stop"[166]5)"."
  125. 2011 [153]"      "
  126. 2012 [153]"  "
  127. 2013 [129]t[178]1[164]500:[130]
  128. 2014 [151]54273,2:[151]54272,255:[151]54277,.:[151]54278,252:[151]54276,129
  129. 2015 [153]"ononcontusrusr"n$
  130. 2016 [129]t[178]1[164]100:[130]:[151]54276,128:[129]t[178]1[164]2000:[130]:[142]
  131.